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boolean CheckForlsolation(int central Thought, int targetThought) 

I 

//this function checks if centralThought is related to targetThought 
// via any of targetThought's relations (not directly) 

//remove centralThought as a direct relation from targetThought 
RemoveRelation(targetThought, centralThought); 

//create an empty thought list to keep track of the search 
intList searchList=CreateEmptyList(); 

//stort recursive searches on each of targetThought's direct relations 
int relation=GetFirstRelation(targetThought); 
boolean found; 
do 1 

found=Search(relation, centralThought, searchList); 
if(found) j 

//centralThought was found, no need to search any further 
break; 

i 

//this loop will end when there are no more relations 
I while(relation=GetNextRelation(targetThought); 

//add centralThought back onto targetThought as a relation 
AddRelation(targetThought, centralThought); 

return found; 

1 
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Figure 10, cont'd 



boolean Search(source, dest, seachList) 



if(Find(source, searchList)) { 

//source has already been searched 
return FALSE; 



//add source to the searchList 
Add(source, searchList) 

if(source =dest) j 

//this is the destination,we have found it 
return TRUE; 



//recursive searches on each of sources direct relations 
in t relation=GetFirstRelation(source); 
boolean found; 
do \ 

found=Search(relation, dest, searchList); 
if(found) { 



//centralThought was found, no need to search any further 



//this loop will end when there are no more relations 
1 while(relation=GetNextRelation(targetThought); 

return found; 



break; 
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There are very few applications that ore useful to almost everyone. Actually, 
there is currently only one: the word processor. 




The Brain will be a universally appealing application. It will be one of the most 
significant new technologies in decades. The first only thought processor. 
Software that does for thoughts what the word processor does for words. 




The Brain approaches the computer as a computer, not a glorified typewriter, 
calculator, filing cabinet, or day-book. Not surprisingly, the basis of most 
productivity applications are concepts from the pre-computer age. By starting 
with mundane, non-revolutionary task metaphors, these applications are all 
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ForgetThought (fNum) 



//mark all the children of the selected thought 
!ist.CIeQr(); 

MarkChildren (fNum, list); 

//unmark the active thought 

list, RemoveThought (activeThought); 

//unmark thoughts with unmarked parents 

INum = list.GetFirstNumO; 

while(iNum != 0) 

^ if(lNum != fNum) //don't unmark the selected thought 



pNum = GetFirstThoughtParent (INum); 
while(pNum != 0) 

^ if(list.Contains(pNum) == FALSE) 

\ 

if(lsThoughtlnLongTermMemory (pNum) == FALSE) 

I 

//unmark all the children of the unmarked parent 
childList.ClearO; 

MarkChildren(pNum, childLIst); 
list.RemaveList(childList); 

I 

i 

pNum = GetNextThoijghtParent(INum); 

i 

1Num = listGetNextNumO; 

//now forget all the thoughts left on the list 
1Num = list.GetFirstNumO; 
while(lNum != 0) 

1 

ForgetThought(lNum); 
1Num = list.GetNextNumQ; 

i 

RememberThought(rNum) 

I 

//mark all the children of the selected thought 
list.ClearO; 

I 



MarkChildren(rNum, list); 

// remember all the thoughts on the list 

INum = list.GetFirstNumO; 

while(lNum != 0) 

1 

Remember Thought(INum); 
1Num = list.GetNextNumO; 



MarkChildren(num, list) 

\ 

|[st.AddThought(num); 
cNum = GetFirstChild(num); 
while(cNum 1= 0) 

\ 

MarkChildren(cNum, list); 
cNum = GetNextChiid(num); 
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Algorithm for drawing tlie plex with distant thoughts 
1. Create a list of thoughts to be drawn and their on screen locations: 



2. 


Add 


the central thought to the list. 


3. 


Add 


children to the list. 


4. 


Add 


parents to the list. 


5. 


Add 


jumps to the list. 


6. 


Add 


siblings to the list, checking first that they are not 






already on the list. 


7. 


Add 


distants of children to the list, checking first that they 






ore not already on the list. 


8. 


Add 


distants of parents to the list, checking first that they 






are not already on the list. 


9. 


Add 


distants of jumps to the list, checking first that they 






are not already on the list. 


10. 


Add 


distants of siblings to the list, checking first that 






they are not already on the list. 



11. Draw the lines that connect each thought: 

12. For each item in the list: 

13. Get each item in the list: 

U. If the two items are related, draw lines 

between them from and to the appropriate 
gates. 

15. Draw the distant thoughts: 



16. For each item in the list: 

17. If it is a distant thought, draw it. 

18. Draw the other thoughts: 

19. For each item in the list: 

20. If it is not a distant thought, draw it. 
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line connects the method for searctiing thoughts 

lines to find a route from nSrc to nOest other than o direct relation 

returns TRUE if found 

boolean Search(int nSrc. int nOest) 



list of thoughts that possibly connect 
list of thought that do not connect 



//create the lists 
Though tList posList; 
Though tList notList; 
//empty the lists 

posList.lnitialize(); 

notList.lnitialize(); 

//add the source to the not list since we cannot go directly to the destination 
notList. Add(nSrc); 

//since we cannot go directly to the destination, 

//add all relates except the destination to the possible list 

Thought src{nSrc); 

for(int n = 0; ; n-t+) 



int nRel = src.GetRelate(n); 
if(!nRel) 

^ //no more relations, done 
break; 

if(nRel != nDest) 
1 

// add it to the possibly connect list 
. posList.Add(nRel); 



while(TRUE) 



//check the first possibility 
int nTest = posList.GetFirst(); 
if(!nTest) 

^ //nothing on the list, done 
^ break; 

Thought test(nTest); 
if(test.lsRelated(nOest}) 



//this one is related to the destination, we're done 
I return TRUE: 

//does not connect, add it to the does not connect list 
notList.Add(nTest); 

//add all related thoughts except those already checked to possible list 
for(int n = 0; ;++) 



I 

int nRel = test.GetRelate{n); 
if(!nRel) 

\ 

//no more relations, done 
I break; 

if(!notList£xists(nRel)) 
i 

//not checked yet, add to possible list 
posList.Add(rel); 



// remove this one from the possible list 
posList.Remove(nTest); 

// we've checked everything there is 
no other way to get from nSrc to nDest 
return FALSE: 
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Input command necessitating 
creation of new virtual Thought, 
such as activating a Thought 
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